object fmCountry: TfmCountry
  Left = 0
  Top = 0
  Caption = 'Country'
  ClientHeight = 276
  ClientWidth = 411
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poOwnerFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 90
    Top = 8
    Width = 39
    Height = 13
    Caption = 'Country'
  end
  object Label2: TLabel
    Left = 8
    Top = 40
    Width = 121
    Height = 13
    Caption = 'Abbriviation(Short Name)'
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 124
    Width = 411
    Height = 152
    Align = alBottom
    DataSource = dsCountry
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    TabOrder = 7
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ABBRIVIATION'
        Title.Caption = 'Abbr.'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COUNTRY'
        Title.Caption = 'Country'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Width = 200
        Visible = True
      end>
  end
  object btnClose: TButton
    Left = 320
    Top = 3
    Width = 75
    Height = 25
    Cancel = True
    Caption = '&Close'
    TabOrder = 6
    OnClick = btnCloseClick
  end
  object txtCountry: TEdit
    Left = 135
    Top = 5
    Width = 154
    Height = 21
    MaxLength = 255
    TabOrder = 0
  end
  object txtAbbr: TEdit
    Left = 135
    Top = 37
    Width = 50
    Height = 21
    CharCase = ecUpperCase
    MaxLength = 4
    TabOrder = 1
  end
  object btnNew: TButton
    Left = 36
    Top = 75
    Width = 75
    Height = 25
    Caption = '&New'
    TabOrder = 2
    OnClick = btnNewClick
  end
  object btnSave: TButton
    Left = 125
    Top = 75
    Width = 75
    Height = 25
    Caption = '&Save'
    Default = True
    TabOrder = 3
    OnClick = btnSaveClick
  end
  object btnDelete: TButton
    Left = 214
    Top = 75
    Width = 75
    Height = 25
    Caption = '&Delete'
    TabOrder = 4
    OnClick = btnDeleteClick
  end
  object btnRefresh: TButton
    Left = 305
    Top = 75
    Width = 75
    Height = 25
    Caption = '&Refresh'
    TabOrder = 5
    OnClick = btnRefreshClick
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = 'C:\Invoice Managment - Delphi\invoicemanager.fdb'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    ServerType = 'IBServer'
    TraceFlags = [tfQExecute, tfError, tfStmt, tfConnect, tfTransact]
    Left = 256
    Top = 168
  end
  object IBTransaction1: TIBTransaction
    DefaultDatabase = IBDatabase1
    Left = 336
    Top = 168
  end
  object fbCountry: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    CachedUpdates = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end
      item
        Name = 'COUNTRY'
        Attributes = [faRequired]
        DataType = ftString
        Size = 255
      end>
    IndexDefs = <
      item
        Name = 'UNQ1_COUNTRY'
        Fields = 'ABBRIVIATION;COUNTRY'
        Options = [ixUnique]
      end
      item
        Name = 'PK_COUNTRY'
        Fields = 'ID'
        Options = [ixUnique]
      end
      item
        Name = 'UNQ2_COUNTRY'
        Fields = 'ABBRIVIATION'
        Options = [ixUnique]
      end>
    StoreDefs = True
    TableName = 'COUNTRY'
    Left = 256
    Top = 224
  end
  object dsCountry: TDataSource
    AutoEdit = False
    DataSet = fbCountry
    Left = 336
    Top = 224
  end
end
